tlli-BSSI} 



E.II. EazoHHB, A.A. CyxaaoB 


THHBEFCAJIbHUB AJD^OPtfTMj H IIPOITAMUU BlffiKIJIEHm 
HAPAMETPOB JIBHKEHHH B SAJIA'IE WX TEJ 


WEIVED BY 
ESA - SOS 



PROC 

n NASA STl FA^‘ v 
□ ESA-SDS □ A.M 


Ana;^eMHH HpiyK CCCP 




M o c K B a 


AKAAEUHfl HA7K CCCP 

mnmrs msmEcm. 

np -420 

B.U. Eazosua, A. A. CyzaaoB 


7HKBEFCAJ0>BbIB AATOFRmj H nFOIPAUMU BRDOESm 

QAPAMETFOB smsm B 2mm mn tm 


19 7 8 



npHBeAOHu ajiropRTioi a nporpaioiu oa HsuRe MFTPAH ahh 
aeHHfi $asoBux tcoopsHHaT, aaeueHSOB opdRsUy laozaux npoHSBOARUX . 
napBoro h BToporo nopnsKa ot oahhx napauetpoB ABHseRHH no aP 7- ^ 
rau B saAana abtx tan. yRasaHHue ajiropRTua (OonbiniiHCTBO as koto4 
pax paapatfoxaHO aBxopaMa) nparoARU npa ad<5ux SHaqaBanx aKOitaai^,: 
pHoxTaxa a ysodm jan BintaoaeHafl paanaqHux aaBaranaoRHux napa- 
fiexpoB ppcfara. 


Shs alaorlttuna and POBTBaH-progxaoiB for oomputixig pool* 
tlonB and volooltlaa, orbital eloments and flret and aoooM 
partial dorlratlvoa In the Xao-Body problem are preaented. 
nieae algorltbaa (moat of them are developed by the authora) 

BTo applicable for any value of eocantricity and are oonveniont 
for oomputing varioue navigation paxametera. 
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!• mEjmM 

• I . I , Hpo i[tuapwTe;iM w nawowai ivih 

B aajia'iax KOCMinecKoll HaBHPaixHH si nedeoNOfl mxaHZRB bos-* 
HHRaOT H60<5XO.imMOCTb B BUqsOJieHBH paSASHHUX napaMOTpoB ooscyjui- 
pyKmelt KenJiepoBCKO^ opdHTu: $asoBux KoopASHaT, sJieMeHTOB opdsi- 
M8TPBU aaCTHUX apOHSBOAHUX OX OAH0X napBMexpOB TpaeRTOpBB 
no T,n. EeJiaTeJibHo, qxodu $op^AB ajih stbx napabiexpoB 

daxii .uooxaxoqRO npocxu « yHHBepcaJtbHU, x.e. ho SMeAia Oh Heonpa- 
AO^enHOCxei! B ocodeHHocxet! apn nepexoAe ox oahopo xsma Kenxe- 
pOBCKOil opdHxw K APyro^ (3a HCKJnoaeHHeM xex CAy'jaeB, KorAa axi 
ooodeHHOcxH BBxeKaiox 03 caiPoro cBOjtcxBa scnoJibsyeMoro napaMex|m{. 

B HacxoHmetl padoxe npHBeAOHu ynuBepcaJibHue 0 Raadoiiee 
XRBHue c XO7K0 speHMii aBTopoB ajiropHXMH. PeoieHBe saAaqa AByx 
XOA 0 BHqacAeHBe BpeMOHS nepe;idxa MeaAy AByMa ooxcmeHsuiMB aa 
opdHxe npo03BO.AHXCH coPAacHO padoxe [i], a pacaex HsoxpoHHUx 
npoB3BOAH!jx nepBoro h Bxoporo nopaAKa or npBMoyroABHHX (j^soBMx 
ROopAHHax no bx HaqajibHUM 3 HaqeH 0 HM 0 ipaB0TaiX0OHHOMy napa- 
MOTpy - copxacHO paOoxo aBxopoB [2] . B n.3 nepeBeAena aAPopax- 
m BaqHCAeRBx pasAHanax sAef^eHTOB opdBxa 0 qacxHax opoaaBOAH.ax 

ox npAMOyPOAbHHX ^30BUX KOOpAHflaX no pa3A0':HHM COBCKynHOCT-fuI 
03 meCXB 3AeM6HT0B OpdHXa* OdUqRO JUISI npOBSBOAHHX no KaSAOd 
coBOKynaocTB SAeMeHxoB bhboabtca cboA Hadop ^pop^tyA. ABTopawa 
-03ri8H aAijpnr* ('‘M. n,3). pr?T?pat! noaso'AHer o<yher^:■^^ro 
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sMunys) c0CTe^^y pas^iH'iHHe nadopa 0op^Ji xm 80 oosoKynHooTefl 
9;ieMeHT0B a c noMdmBK) ojnHoii nporpaiviMU bu<!kcjihti> npo03BQArae po 
sapaHHOwy Hadopy a^ieMeHTOB. 9ro poorarHyTo sa ctot BBepeaHa, 

OCHOBHOfi COBOKyPBOCTI! 9JieMeHT0Bi npUPOPHOa JPK JiBXjBX HeiIpBMO;iH- 

ne&aax .op6ai a nepexopja ot 3to 2 coBOKynHocTP k saj^aHHOfi. TaKo2 
nojtucop oCecnequBaeT pocTaTO'iHO npooTyjo peamjaaiWE) BH<mcjieHHa 
Ha 9;ieMeHT0B a npoBSBOjciHiiix, a TaKse paeT BoaMoaHOCTB perKO 
nojiyBaTB $opMyaa jyiH npoasBOjuffix no jno(5of4y aadopy aPeMeHTOB, He 
paccMOTpeHBOMy B paHHoK paCoTe., 

B npHJioReHHH npHBepeHH onncaHHa nporpaMM, oooTBeTCTByniiHX 
HSJioseHHBM aJiropH^aM, a tskctu 9thx nporpaiad Ha asiace 

I. 2 » CB 0 HKa ogosHaqeHHfi a HcndJn. 3 veMnx napaweTPOB 
BBO.iyiMne , BeKTopH paccMaTpHBaioTca b. $op^^xax MaipiniH- 

' - ‘ - 'T 

cToxdpa. HfipeKC "T" osHanaeT TpaHcnoHHpoBaHHe, Hanpamep, r ; i . 
IIppHSBcwHaH OT BeKTopa no cKaxHpy ecTb BeKTop, or CMixapa nq 
EeKTOX^’ - MaTpapa-CTpOKa, npoasBopHaa ot n HflepHoro jBeKTopa fio 
mHiiepHONy seKTopy,;'- MaTpaqaL pasMepoB n x m. 

nepeHacxHM Tenepb ocHOSHHe. m acnoxBsyeMHX oapai^eTpoB 
PBHBeHHfl: 

- rpaBHTapaoHHafi napaiaeTp; 
t, tg - TeicytttHfl 0 Ha 9 SUrBHH 0 M(»ieHTH BpeM 0 HH; 
r, V r- 3 -MepHUe BeKTOpH KOOppHHaT 0 CROpOCTeS B Hfie|S{ 0 aJIbHOfi 
cHCTeMe KoopiaapaT, HaBano KOTopofl ooBaajsMT 6 npHTHMBaEiaHM 
i^earpoM ; 

r o|f| , V -|v| ; 

X - 6-MepHHfl BeKTOp. 

Jto' OT^HEfl 3HaTOHHK napaMeTpoB pBHseHHH a jpyTBx |>yHii^to r : . 
B^MeflH, B MOMeHT ^ -OT HX 303^6002 . B MOMeaT. BpeMefi^^^ 
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■cnoabsyeTCfl aaneKC "o"5 HanpaMep, r(t„) - f ^ » T.n. 

Am mpBux nHTorpanoB saAam ppyx len ( k KOxopuM othocatca 
p PMKteHTu opOHTu) Bono/ibsyOTCH cAe^KuiHe odnionpHBiiTue odosHa- 

iTCPm: 

i ■ r X r - HHTerpaji naomaflel!; 

o -jcl I 

f - - Y* T X o - HHTerpax AanMoa; 

h ,2 

“ ■ ▼ — j — - HHTerpa;! auepniH; 

d • - p - odpaTHaa Coabmafl nopyoob (co anaKOM) ; 

• • 7 - donboaii noJiyoob (oo anaKOM);' 

,2 

p • - $ 0 KasbHHfl napaMOTp; 


^ ^ h - aKcaeuTpHCBTeT; 




n 


- cpeAHee ABHxeHHo; 

- napHOA: 
i - itaiuioHeHie opdHTu: 
w - apryweHT nepaneaTpa; 

Q - AoxroTa fiooxcnflqerp ya^a; 

^2 ■ • ooaw , -• npoaioufB BexTopa Ha Jinum 

yajioB B nepneHABKyMpHoe k hbA Hanpaanenfie b bjiookocth opdara; 


P 

*» - ■'■ - paAPyc nepaneHTpa 

1 ^ a 

P 

r« . pejujyc BocxoA/TJuaro ysJia; 

1 ♦ fg 


- BpeMena npoxoiAeHHa qepea napauaHTp h BocxoAsnuifl yaex. 


HapaAy c p, t, t b padore HcnoAbayorca cxeAynmie ABHamiiaec- 
Rie napaMexpu: 

■& - BCTBHHaa aHOuaMH; 



j = ft) + d - apryMeHT imjawTii; 

;4,= Ugm n(t-t^) - opesfiBe aflcwajiBB, 'OTC^HTHBasMEiei 

OT nepHttearpa h ysjia; 

^p- pei7AapH30BaflHoe speMi, 03 jiuii|$epeHiXKaJibBoro 

ypaSHesHfl 

f|p- —■ , iip(tg) - oj cor^Ho [2] , 

tp ’ 

r , Yjr :i^iUiajilpa 
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2. yHUBEPCAJILHUE AJETOPWIMU PACTBTA TEKyilMX <JA3CIBIiX, 
KOOPJIHHAT H MATPMJ ©OXPOHffilX IIPd«aBOJBQCC HEEBOrO H BTOPOPO 
nopjuacA 


2.I. BHqHOjeHHe TeKVuttnc feiaoBHX KOoniWHaT (nojuiPorpaMwa 
KBPLER) 

Ho saAaHHUM BeKTopar/i r^, KoopAtiHaT a cKopocxeii b momoht 
tg 0 HHTepBaoy t - TpecJyeToa BuiBcaHTb bbotopu r, v 
B M0M6HT t. Ann BTofl UBJiB BonoABsyexcH cJteAynqHfl yHEBepoaubHufl 
ftirropHTM [l] , 

BnaRane onpenejmeroji peiyuaptisoBaaHoe spem t^. Oho hbxo- 
A0XCH 03 yHHBepcaJibHoro ypaBHeHHH Kbanepa: 

- i'J, tp2 0(y) + (1-rg«i)tp^3(y) r,,tp,(2«1 ) 


rA0 rp'HaxoA0TCJi ooraaoHO n. 1 . 2 , y • <Atp , 
c(y) u 3(y) onpeABAHiDTOA ^oimy-nsMo: 

i (1-*oe^), y>0, 

“ (1-oh/^. y^o. 


0(y) - y“ « 

no6 (2n '■¥ 2)1 . 


a $yHRii00 
(2.2) 


S(y) 


^(2n ♦ 3>! 


(VT - BiAy/f), y> 0 , 

-~=s. (>/^ - Bh>/^), y<0. 

,yv^ 
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B noAnporpaMMe KSPLUR $yHKti0i3C(y), s<y).. . pana- 

m npn |yf.4 Q»i. . 

JUx HBXOsjieBBJi t 0 & ypaBHeflUB ( 2 . 1 ) BcnoA&syeTCH BTepacmoB- 
RHfi M6TOA HsiDTbBa, B ROTopoM BpBd;iBaeBBoe pemeBBe Ba (iH-i)>o{l 
Bxepa^BB BBpazaeTCH Rapes BpeAiWyiilse npadJiBseBBoe pemeBBe no 
$o|»v!y.’ie; 


t m t r ( 2 « 4 ) 

Tip Xp f 

rae npaBaa RaoTB (2.1) npB t > > 

a lyHKnHH r -ri [tp-^tp 3 s(y)] + ( 1 -T^d) ip 0 (y)+r^ ( 2 . 5 ) 

npe« 

r^. 


onpeMennex paAByu b saBBCBMOcxB ox t^. KrepanBB BaRBBas>xoii o 




Ecjih BxepaiiBOHHBS npoiiecc (2.4) n^oxo cxoabxch, xo b KaqecxB^ 
By;ieBoro npBdnBseHBB depexca pemeBBe ypaBBeBBH (2.1) jvu 
HHxepBajia (t-io)/2, 

npB pacRexe $a30Bux KOopnBBax abb ejinBnxBRecKoro ABBseBBB 
BcnojjBayeicB nepBOflBRBocxB xpaeKxopBB h tp Biaexca jwa HHiepBa- 
na, KoxopHg BBflaex(« ocxaxkraa px fleaeBBa hp nepBon odpa- 

meflBfl. 


Bocae HaxoaaeHHB tp 

BeKTOpU ROOPABBaX B 

Bicfl no $opiiyae: 


r ■} 


r - ^0 * 


o 

To + [l- ^ c(y)] V, 


( 2 . 6 ) 



no asAMHHM X, x^ Tpedyevcfl buwojihtii uaTpiiqy uso- 


XPOBHUX OpOBSBOAinUC 


Am oToro Bonoxt>ByeTOfl npeAnosenHufi b [2] anropum. nparon- 
Hufl Am .nDClux VBDOB opdBT B sBAA'^e Asyz 76A. anropasu 
oBOABTofl K peDCiBBD ABBeMHofl anre(SpaB<]eoRofi cooTemi ypasHeHtilii 


TAe A - A(t), m A(t^) - mTpmm S-ro nopam&. Jlopme nath 
CTPOR MaTpHUUA HaXOAHTOA B 8 ^OpUyAS 


+ vxWj^)^, (Pj^xo - rxWj 

A 5 o[s)r^ v-^]. 

TAB 


«! - Pi*?, - ^Pj^, i ■ 1,2, 

a P| , P 2 - BOBTOpH, Bu6Hpae)«6 HB yCAOBHfl HesaBHCKMOOTH oqtos 
- Ag CAeA/mpiu o<5p£i30U{ aah optfKT, 6mamx « npaiccAHBeRffitu 
H napaiSoAtnecKHM, p^, p£ -* opnt CHCTetu KoopAHHa?, oootBeromy^ 
Kopte HaMusHboiKM IK) moa/ad kotflioH8H7au B6KTopa P,, J , B oovaob- 

MUX CA/'iaKX - Pj= P/r , P£* ^/V - 

flteoTaa cxpoKa uaTpHUH a npa Bctt>€/r , lae £>o - 
■ »J 

3a;^HaH uaxafl BeABqaHa (ABBxeHBe oTABqao ot napadoAaqeoKoroj^ 
HaxoAHTCH 00 ®opuyAe 

Ag - f-3v> ♦ v\ 2r’’- 3(t-t^)v'’’] , (2.10) 


3, noAApox’paMKe-DSRlTt 'npeHzr^erxH R=0,0Z. 



lips 1'<3(|4 E/z'^ (oapadtMuivecKoe r <}jiti8Koe r H6My jOBia- 

&eBH6)A^ BUBHORHeTOH nO $opMyA8 

Ag - [C/lr-aVs) ?▼+ k7\ Sr^- 2SV‘^], (2.11) 


me RcnoRBaoBaBii odosRaieBRH 
S = 0^ - jUr, 


( 2 . 12 ) 




■' (r2t„ - rr* ) . 


3 


Sl“2% 


oo T2 
Zla2 


I 

I# 


2“-2(r"2^.2)-r” 


*7 (-dt2)>^”2 


2n+l 




a c.L.tp, r, r',r" onpeRefleHH p n. 1.2. 0 HHTerpanj 


jRipHHHOJKeTcs no KOHe'iHofl $opMyJie 

3^(t-t^)-ptp-rr'+ 

£t .|<9 - - - - . _ - - ^ 

Zd,JJJi 


2.3. BHqH0JIBHHe MaTDHn BTODHX H30XPOHHHX nP0tl3B0flHHX 

(nojinporpaMMa deriv2 ) 

np aanaHHHM ju,t-t^,x,5Q TpedyeTpa HeiaTH MaTpauH HsoxpoH- 
HHX npoHSBQRHHX BToporo nopTOKa 


Ic • 1 . • . . .^6 . 


1 - 

1 

ij 



- V ^ _ 

CoraacHO [2J em miptmn naxoAHTCH h 3 $opwya 

,‘6 


(MaxpHua A onpeAeAflexcH 


1»1 ;• • 

ise ajj-^ • - eacMeHTH MaxpHipj a 

R3(2.8)-(2,II)) - MaxpHEta HsoxpoHHia npoHSBOAHHx nepBoro 

nopaBRa (anropaxM BHqacaeHHa $ npHseAea b n. 2.2),P^-D^(t), 
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— MaTpaqa 6-ro nopasKa. Jinn Hoxosweflaa MaTpH£(» D^, dJ 
BBeA6M odosHaseHBHt 

^ -Ply" ■' 


- P 


'iz O' p 


Ply -Plx 0 

,-;T ~ T ^ srT 


lx 


Ql » 2 pj^v\ > 

Rl - 5p^ +_p^rT J 

\ rr^ . .X, 


1 - 1,2 


G = V (3 ^ - l), (I!~ leflHnmnaH Maipima) , 

TOe V onpe.ueaaeTca 03 (2.9), p^.pg - BeitiopK, onpefleaeHiiuo 

B n. 2.2. IlepBHe jwtb Maipuu Haxoflarca H3,$ois«ora 


?], 

. 1+2 f-'^^l + 'Jl , 1 

- [" ?] 


> 1 a 1 f2 


MaTpicia npH (d) >£/rp , rfle E onpefleafleTca tbk He7 
K8K 0 B n. 2.2 (BBB»eH0e ot;ui>jho ot na'padoJmqecKoro), hmoabtcs 
no $opMyae 




3(t-tg)G 

21 


_-3(t-t^)I 


3 . 


Hp0 10(14 E/r^ (napadoaBqecKoe h dansKoe k HeMy UBiiieHHe) 

BuqBCJiaeTCH no $opAyae _ 
g r2aG + }iil + sI-rfT' |^f7 — t 


t bI + rr 


-2sl 





, = ^ r^dt ° j= ^ + I' ^) + 

- ~) + Sp] . 


rt^ r’'b ' ip 4 51^ -2 


10 
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qr w-(m (n ) , 2 


ns3L 2n-».1 


d r'^)r 


(2a)» 


<j2n « 

m(n) a 

4 * 


q =.[3m(n-1)+l] r"^-2^“"'*r"+1 , 


EeMtiBHU o,f,tp,r,r',r*'onpe;ieJieHH b n.1.2, a e,l onpejieflHtoTCH 
03 (2.12). UpH 0 HHTerpaJiR 2 Bh/^nojuieTca no KoneqHOfl $op- 
My/ie 

R . s-jp* (t-t^)-3pt„-f(l-.2c<r)rr*-(l--2clg^)r.,r;,- 
^ 2 0 ( 2 ^ " 


2.4. BHR0CJeHHe npoH3£o.nHHx no rpaBHTagnoHHom napajjeTpv 
(nojuiporpaMMa dermi.derh 2 ) 

Ho 3a,naHHHM TpedyeTca BHt}Hc;iHTb npo03Bo;iHHe 

^ 2 - 
dx , d^x . , d^x 

^ ’ d/J dx^ ‘ 

CorjiacHO [2] sth npoHSBOAHue BaxoAHTcn h 3 $opMyji 

£x_ „ ^ „ 1 

^ „ . i_(2 ^ 

;• ® ,■'1'*'^, ifii,...,6 onpe.!i,e-nenM b (in. 2.2, 2.3. 
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3. AjarOPHTMU B3APMH0r0 HEPEXOM MEW nPfflSOTimiMffl 
®A3QBblMH KOOPJCHHAIAMH H 3JIEMEHTAMH 0PBHT« 

3.I. IIoflCHHTe.nBHne aaMeqaHflfl k ajiroDn™aM 

npH onncaHaH jmmema b sewage asyx lex oc3u'?ho ncno;n>3yioTc>i 
pa3;in’iHae coBOKynHOOTH aaeMenTOB opOHTa. IIpaBe.ir,eHHue Htrse 
aOTopuTMH paspaOjTanu flJM HeKOTopiix paonpocTpaHonHiix coBOKyn- 
HOOTefl. HancJoaee yH«Bepca;n>Ho8 ns hhx nBflaeTOfl cJiejjyioiuaa; cobo- 
KyuKooTb s;ieMeHTOB*\ npHro,nHafi jvui jikx3ux HenpaMOJXHHeitHux 
KOWIOPOBOKHX op<3ht: 

(3*1) 

BeKTop y^ cSyfleM HaauBaTB ochobhoH coBOKynHooTbio 3;:eMeHT0B op- 
ciHTU. J^pyrMe coBOKycHooTH no;iyqaBTCfi -saMenoJ} cjiesyioiAHX 
SJlOMeHTOB! 

P - na a»h HJiH T; 

1 - Ha ooB ij 

, U - Ha , t-tjj , VlMl . 

ilra paccMarpHBaeMUX yraoBux Be;inqHH npuHATu cae^Qftouuie .imanaaoHu 

0^a),Q,u, V.y , . (3.2) 

JUd a-wnTHsteoiuix op(3nT npHHHXO 

0 4 , t-tp <1 T. (3.3) 

») 

Ilofl BJieMeHxaMH oprtuTU mu dy;teM noHHMaxb Taiose .paflaMUdecKHe 
napaM8Tpu jtBHseMHH na saoiaHHuft mom 8HT BpeMenH t. 
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B noxaporpamax, onaoaHHHX b IIpax&aeHBa, Budopow ayaHoft oo- 
'JOBOKynHOciH BxeMeHTOfa opcJHTU ynpasaaeT TpexsHaqHoe qacao 

Hg/I *• V 1 V 2 V 3 

(3Reoh - AecflTn<iHHe UH$pa) . CooTBeTOTBae vsom 

a coBOKynHOOTB BxeMeHioB opdaiu npaBe^eHo b Tadvi.I. 


Ta( 5 aana I 

CooTBOTOTBae ynpaBXfflomero aac;ia Ng_^ - V1V2V3 
a BonoxBsyeMHX a^ieivieHTOB opcJbth 



HanpBMep, qacay H 3^=232 oooTBeicTByeT coBOKynHocTb 
y ■ (h,a,<0,oos 1||^2 

Boero raitm odpaacw mosho nojiymiTb 80 paajiaaaax coBOK/nHocxel! 
aaeMeaTOB opdaxH, 


• a 
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3.2. BHSHcjeHHe BPeMeHH nepeaeTa weim jama noJioKeHHflMH 
Ha oprfHTe (nojmporpawMa-^HKmug dtime) 

TpediyeToa onpewjfflxi. speMH nepeaeTa (co shskom) laeswo 

flsyMH nojioaeHHHMH Ha opdaxe, saj^aHHHMH paiwycauH r^.rgi hoxhh- 
HOfl aHOMajiHel! . nepBoro noJioxeHiia h yr;ioBptt abjibhocxeei nepe- 
Bexa <p . npH 8X0M sHaK HHxepsajia BpeueHii t 2 ~t^ onpeAejiaeTca 
SHaKOM <p. ' 

SoonoBBsyeMofl yapepcajiBHUM anropaxMOM, npeAnoxeHHUM b [I]-. 
3anas»M yroji ip b Bpe 

(P -(Pp+ 23 Tk, - 23 r<vPo< 2jr,fo.O,±1,±2,... 

(.UJW HOBB/lHnTHHeOKHX OJ^HX kaO) . Topfla 

.V*.- ^ 

^^e 0(x), S(x) - $yHKU 0 E|, onpe^teJifftMHe zs (2.2), (2.3), 

/"5 ‘ » 

r*! ♦ Pp + d . 

g . . ■ ■ ■ . g ■ , 


w *m silca bIh}^) • 

X ajr oipot » y “O Blgad, 



or + w.,(2 ercBln et>0» 

2 arsh JW. 

w. Bin ‘9i8in(d|-*^<P} > 0 , 

-Blga(lp Bln^^ ), aln'^^ Bln('d:,+tp) < 0 


t 
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{ 


2 aro 0 ln <t»o, 


2 erah 


oUO 


(npi BUi0Q4eBBflX yAodHO BoofloabaoBaTbcii (]K)iMyjiol 
•raha • ln(n ), 

S.S. PaoseT BJieMeHTOB od(5hth no flPHMOvroabHmi 'tesoBtfti kooi>- 
JiBHaTaM (nPAnPorpjMMa abkl) 

no aaxmamt jui ,2 ■ wojiy H rpeOyaroa ButHoauTb oopana- 

JUattyD BTEDI <00401 OOBOKynUOOTb 84eueHT0B opOHTU y> 

OoHOBHaa ooBOKyoHOOTb BJUMeHTOB opdiiTU (3.1) BuqaoaaercH no 
oaeAymiaM ^op^yjoaM) 

poa 1 p , alt) 1>0| 

0 , O'':. 

aoaQ p - ’•» afiTr . 

dpi IpO • npMHBMfeTOJl Q pO, 

008 U P ^ ^(^r^slnQ ♦ TyOosQ ♦ r^ain ij ^ 

ein u « ^ (r_ oqbQ’^ vJ^lnQ)i 
r * jr 

-1) tin u - f r cos ui 
m -1) 009 U > ^ r Biu U« 


OoraabHue a^eiieHTiB opOgTii» onpo^eaeRHue b n.3.I, BUHHCAmyrca 
aopea ocHOBHue e^eMeHTU cjiejiy.a.-iHM odpasoM: 
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■r ^2 • 

Sln(U-_J! I OOBU)m- ^ 


npa « - 0 npHHHMaeTOfl CU- 0. 

ju ’ 2 «3/2 

a • ■ ^ ’ y t h ■ ” 1 “* ■) » T ■ 29T *— psr-» 

1-e^ P '(K 


Ann BHqHOAeHHH BHTepj^oa BpeMeHH am 

HonoAbsyeTofl aA??opii^t npHBSAeHHuH b it. 3. 1. Ilpa Qtm HOOdxoAB:^ 
Mue BoxoAHBe BeAHttHHU d tT^ trj2 onpeAeABHU b n.1.2. 



eCAH BU<IfIOAHeTCA t-tg^ , 
eOAH BU^BOAfleTCA t-t^ / 


4 > - u -O) -^ 4 + 2 tjric , k-o,ii, 

me, npn o(X$AHAeHiia yoAOBM (3.2), qacAok BudBpaeTCH Ha 
BAAHflTHqeuKOll Op()MTS H 3 yOAOBHA (3.3) , a Ha He9AAHnTB<ieCK0tt 
op<5iiTe -* TaKHu odpast^, atoOh noAytiHTb opaBBAbiiHli 3H8 k npa 

u . 

OTMeTBV., <1T0 Ha He3AAI!nTtl<ie0K0ll OpOBTO M 0 B 6 T H6 Cy- 
mecTBOBatb. B stom OAyMaa b noAnporpaMMO abel BMecTp 
BUHBCAHeTCA t-tjr B ne<iaT9H)TCH cooTBeTOTBynoBe noflOHeHHH. 

CpeAHBe aHmUIABB, My.Ug} BUHBCAAIOTOfl 00 npBBeAeHHHM B n.1.2 

$opMyAaw. 


3.4. PacHeT npflMOvroAbHHX (Sasosax KOOPABHaT no aAemeHTaM 
opPbth (noAnoorpawMa blab) 

nycTb 3aAami J4, bbcao h onpeAn-nneMan 3 tbm bhcaom cobo- 
KynHOOTii 3AeMeHT0B opdHTU y, Tpedyeicn BHiBCAHTb Bexyop Te- 
KyUiBX $a30BUX KOOpABHaT X. 

ByA6M paccMaTpBBatb 2 cAy^an. 
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a) B OPBOXJOilOOTb f . BZOA0T Bpt 7 M«HT SrapoTU u. H 9TtWI 
o^aae BexTopu r»v BuqacAiiovofl no (j^pHynai.) 

r • rf “ , V ■ . . 

^ " f+fy eln u ♦ COB u’ 

Bin tt - fi COB u), Vjji 

. 'oobAI cos u - siaQ rln u obs 1 1 

’ #% ■ iS ■ ' (5*5) 

r"c . alnw eca u ♦ easU sin u oos 1 , 

Bln tt Bin i 


r» eosQsln u - sinQooB a cos 1*1 
j - ninO.sin u ♦ oobQoob cob l l . 


COB a oba 1 


Bow BXOflOTUie D (3.5) saeueHTH p,f^ He, acnowsybroH b | 

. coBOKynHOCTH y, TO OHtt BUMcnttHiTca no Hcao.iii3yewtM B y 

BBomiiTaM c noKOotbB ^opiyji. opoBeAeHHBi; b aii.2. j. 

<J) B ooBOKjnnocTt) y BxaiBHT napaMBTp i-ty H,iH ri(t-t^), . 

' r.uo tp« ^ Bast -ij, . B OTOK CJiysae cuaqaaa puqacwic^cyi ' 

, BORTop, Sp - 5{t^) , .ujia qerb B (3.5) caesyeT itpBHSTb 

Pv, ■ ■ v-;v- 

Dpa. ■BBectHHX i,-to • ' ^ 

flOMow;.«^PBTMai-, PcBCMBpro b nV'2Vii ■: 
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3,5> PaoMeT coBOKynHocTti ajieMeHTOB opChth no .upvroi! cobch 
KV flHOOTM ajieMejLTQB .(noMPorpaMLia^ja^ Iil 

riycTB N onpejiejmeiABsi 9tki^ vkcjiom cobo- 

KynnooTb ojieweHTOB h TpedyeTCH Buqnc;i{5Tr, 

coBOKynHocTB ajieivieHTOB yg , onpej^ejmcMyio hvicjiou N ^^^2* 

B no,iuiporpaMMe elbl wcnojiBSOBaH cJie^iyjoiuMil cuoco6 mm'.oAo- 

HHHy^s CHaqana no /i, noMouin. ajiropnxMa, npwBe.iie 

Horo B n.3.4, puwHCJUieTCH boktop x; saTeM no x, N ^■ 
noMouiBTo a;iropnTMa, onMcaHHoro b n.3.3, BuqnoyiJieTCH y^o 


S.S. BuqncJieHne npoH3Bo.n;HUX ot oohobhoK cobok.vjihoqth ojieM eH 
TOB opdKTH no ;\pymM ajieMeHTaivi opciHTU (nc.JxnporpaMMa PBLOBli) 
nycTb 3a;iaHH/<p ocHOBiian coBOKynnocTb oJieMeHTOB y^,onpe- 
Ae^moMan M3 (3.1), qnc^ic 0 onpe^^e/ineMan 9 TKm hhcjiom 

ooBOKynHccTb Yo TpedyercH Bum^oJimh MaTpnuy npoH3Bo;uniX 





D 3aB0CMMOCT0 OT TOBO, KHKHO 3JieMeHTH OpCiMTy BXO.HRT B CO- 

BOKynHDCTb y, iieHyjieBHe aJiawieHTH MaTpmpj Pqjj onpe.ue/inforcn 03 

c;ie.E(yiom0X cooTHonjeimil 


dp p dn P dp 1\ p 

?S“a* -3R" ^ K ^ ^ ^ 

einO), ''^2 

do de “ c°"W. = 


r 


1 * 


M “_i 


d coo 1 oin 1 


BoflH B ooBOKynHooiUy BMeolPOtt BCUOflfcayeTcH rjie 

HflH tg-tjj , TO 



. B '2 (t-t ), m - • (t-t ), 

dh 2hr^ ® dT Tr*^ ® 


BASOi) 0 ■ Jj^V • r«p/(1+f^ Bln u +fg '*)• 

SoJtB «e B y HODOaisyeTOH Mjj. hah b^« to 

t-fr-t-’i--”- 


dU, d% 



flp^BOflOM $OpftG'/iy A-SH BPOHBBOAHOft ^[o~ , B*W KOTOpOl! BaBHOHT 
OT TOl'O. RBKOfi H8 8B6HeHT0B P(a,h,T, a TBRSe K8KO& R8 HBpa- 
MOrpOB n(t-tj) BXOART B y (BSeOb, KBK 0 paHOB, 

urns Vta>« 

fa . I (U£) Bln^ - Xl^+Og. 
finacb d - u-ai, 

u,»| 3 ®®** p€y , ‘i» * “a,t 7 ; • 

lo , eoAi p g y MB ® ; 

I ^ V^a ’* 

^ I 0, eojlfl tg=t, ; 


i-.-.rHBHs rj. 


c-np8Ae;'!eHa b n.1.2. 
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IIpoHSBOflHaH ■35 laKse sasacHT ot BXOflHuiax b y 
napaMSTpoB: 


du , 


1 , eo;w ; 

(1+ (ooeO»ooo9.)e,®°^ 


IIpoH 3 B 0 flHne ~~ , in-i.a, BmaomoTca no ^opwyxaM 


o 6incj+ aodCH, 


o ooeW- S 2 e.lnU) , 


we , Sg - - ^ 


3 , 7. BHqKOJieHHe npoH3BOJiHijx ot ojihhx a^ie^^ieHTOB opc$hth no 
flpyrm s^i eMeiiyaM ( it^ojinporpaj^Ta P3i;LEL) 

nyoTB sajiaHH s oape^ieaHeMHe sthmh 

qwc/iaMM coBOKynnocTH aTtewenTOB op(5hth 1 y^ii TpedyeTOH HeiiiTH 
MaTp^iqy xipombboothx 


p 


DjS 


dy2 


G yqeyoM xrP«Be;\oBiuix Bamo aJLropri’MOB sTa waTpima Bm^AcMQwn 
no <5op?.iy;ie 


*D p 

^axi2» 

PA© MaxpHUH HaXOJVITCH 00 aJITOpHTMy, 000 - 

BJIjL dyj 

caHHOfAy B n, 3 . 6 , a ocHOBHaa coBOicynHocTt aJieMCHTOB bwhmc^ui- 
excH no cOBOKynnocTH y-^ c nor/ioiUBio axiropHTryia, npHBe.ueHHoro b 
n.3,5. 
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HycTb aajiaHH , BeKTop x, h coBOKyiiitOcTEi 

BJieMeHTOB opc^HTU y, oiipej(0JiHeMaw sthm ^kc^iom. TpecJyeTCH bh^kc- 
iiHTb MaTpmiy npon3Bojmux 



(3.7) 


C 3Tofi qe;iBK) cHaqaJia BH^Hc/ZHeTCH MaTpatia 



KownoHeHTH KOTopofl iipBBe;ieHH B Tac5;i,2. BxojyimHe b a;ieMeHTH 
H9 ocHOBHoft coBOKynHocTH y^papc^HTUBajoTCH no BeKTopy X cor^iacHO 
hpHBejieHHOMy b n.3*2 anroptiTMy. 3aT6M c noMombro a^iropnTwa, onn- 
caHBoro B n.3.5, B«qno;ifieTCH Maxpmia 

dy* 

P « — S . 

4y 

ffeTpupa (3.7) BHHHCJiaeTCH no $opMyjie P « 


3.9.PacHeT npoHSBojgHHX ot aJieMeHTOP opdnTH no noHMoyrojibHUM 



Ho sanaHHMM y, x xpec^yeTCH BHqnc^mxb Maxpmiy 


np0H3B0AHUX 

p’» ^ . 
dx 

B nCOTporpawMe pelab jxah axoi^ uejin ncno^rbaoBana $opiviyAa 

. p'=. p-1, 

r;xe p « ^ - Maxpniia, paccwv5TaiiJ’ai! no onncaHHOiviy b n.3.8 

dy 

a;iropnTf,iy . 



2 BllHIfpBl 
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3.10. BHqgQJieaHe MaTPinm tiaoxDonHHX KOOHaBOiumx feropofi 
oflooogV CnoanporpawMa deriyb ). 

Ilp0BafleHHH0 BHine a;iropHTMu nosBO-wioT no aauaiiHUM /i, s, 
BHiHOAaTE. Maipmo 

® # (3.8) 

CItOCOdOM, OT.lMqHH?;! OT OffMCaHHOrO B n. 2,2. )l»Ui sTorc no X, 
a amow,ha aaropHTMa, npmeAOHHoro b ii. 3.3, pacowHTHBanrcH 
COBOKynHOOTH BJiaMeHl'OB OpdHTH 

(npa 3T0M Hgjj«=OOI), a saTeM no aJirop 0 iT.vy, onBcaHH»:y b 
nH,3.0, 3.9,BH'cHOJWBToa warpauH 



MaTpHqB (3.0) fiaccwBTHBseTCB no ^lopHy-aa 
fl> » FP„ 

(B»90ti vwnoJttsoBaHo panoHOTBO ^ ° 

OtT 46 TBT 6 # WO STOT aJTTOpKTM Menee yHHBepcaaeH, ^eM . 
0pHBiiH,neHnHfl fi d.2..? (ho nparuneH am Rpyromix n npHMoaraeHHMx 
‘ iipffw). 


mWIOSEHHE 


OraiCAHHE H TBKCTU nCfflUPOrPAMM HA fl3tIKE WITPAH 

npBBOABMue iiHse onticaHKH no.nnporpaMM oocTasAeHU no 
laeMy odpasuy: 

HaanaieHne noimporpaMMu; 

BcxoAHue ABHHue H peayflbTaT (b CKOdxax b toU se nooAOAOBa- 
TeJlbHOOTH OpHSeABHU COOTBeTCTByKUlBe napaM6TpB ABBaOHBa, oomo- 
HO BBOASHHUM B nn.1.2, 3.1 odosHaqeHiiaM).; 

npHMeqaHBe (mobst oTcyTCTBOBaTB); 

KcnoAbByeMue noAnporpat/iuB b ^yiuoiBB (BCKmoHaa dBdsBOneBHue) : 

$OprpaHHHa TflKCT. 

KpoMe Toro, npBBeAeHu tokctu BonoMOraTeAbHux noAnporpauM b 
HanpBMep. ooAnporpsMM abhoPhoB aJire()pH. 

IIpB COCTBBAeHBH HOAnpOipaMM npBHflTH M6pU AAB BpaAOTBpameHIIS 
dOTepB ToqRooTB B oepenoABeHBft. 
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nojmPQrp^ffl<A jQiPU«(0M.Da-.xo.:t) 

' CJiysar nM BuiHo^ieuiui reKymux i^sobux KOop^HHar z ao bx 
/laiaflbHUM BHaieHflflM i^. 

tfoXOMMe JaWHHO I OM,I»,IO(6)(>4,t-t^,X^,) . 

Pea yjbtaT t z(6)(x). 

I 

npHM9qaHge .Ec.iB HoxoAHua jiauHue opoTBaTorByur rHnep(5oBBqecKot| 
ppdBTa H BUdpaHHH^ MaoiOTaC) BtHX .aaiIHUX npHBOAHT K He;iOnyCTHMO 

PoJibouiM opaiagyToqHUM wBOJiaM, to ne<uiTaeTOH cooTBeruTayuitHfl 
T9K0T H oqaT npaKpamaeTOfl. 

lfogo;ib3yeMH e nounporpaMMu g (tiVHio iHH; vmod, 3fh,os. 


sueROuriNe KfPi.iR(()M,oT>i«,yi 
ptMCHStOH 

ptTi P|l/«.| 8 }lS 91 dMt/ 

• •BP8/l.l*tO/ 

c BPSxToqHOCTb Rtiii.vRteH.RinncPR a inMHHuai 8 rrturi 

« I Bv/«aoti / 

• <eAL/i.t*«/ 

PB JO Rlit» J 
R0<Kl>X0|l(l 

I; 10 yO(K)aX0(K«lt 

iloaORTIOM) 

|RO<iVMOO|(i3tSI 

tl..';ti/ARO*V*400lvo«ll**t/OM 

|n (AU*4RP>,0f .ItLI 

• 0T.*tM0p(0Tti>ii/6i/aj./aaRrtakt I 

c VMSHyaEHHe PRiMtHM Hi^mnog mhcao ngPMoaoa 
fo»o.. * 

C'?a>epgHRiMA KoroRoe taaxHQ xot ocnw cxogMMOcTb nnoxAi,TQ 
e OHMHeaflpTpn Hoeug xocnepexoa h« mitkv joi> m ittcu, 

0 aopTp. . TO.KCT nacni hetkh n 
goi eg»8PRiRe*v«> ii/ci 

t}«jt*AR0»ai, 
ea«et/*R8 
t*9T»ta 
HPO ■ 

HO TR*C 1 *TV«r 0 

c to . PfrvnRPHioaaHHoi opchr 
raxitiio 
I 

aOTO 103 
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Fa»ri«TR 
CALL Ca'VtStI) 

M»rl»e 
( 4>r2*s 
r»»4t*r4«TK 
tR(AAa*M*r3>C2*r9 
rao«^6 

r«*IC}.r3*C3»r4*AR0*TII-Clel l/AD 
|7( 461( r«) ,0T.1BS< r«0 ) ) 

• 80T6 303 
V»»T«-r6 

(Tp.aePSfSQRTURt 

ir(*B$(r6i,oT,fTm 

- 89f0 I 
r«3.-r3/»B8 

e«T»r4/ei 

rTirs*e*/«8 

6T«|«*r3/«8 

88 a K*i,3 

Kir, Mr»«ai« »48»vo«K* 

Xir*3larT*88IRl48T4V0IK» 

86(Kl*XlRl 
a V0IK>«XIX*3) 
t'lNilO.OI 

- 80T0 3 

«Re*«R 

T8»TB*T 

c mkhcmchmc MfcMxnwMoro ftatMtHM 

6OT0 tei , 

183 f»T/a. 

e BHiHcn.HOBOA H«ii,TeMRM 88M nnoxor cxoaMMBttM 

H»N*i 

IMn.LT.IO) 

- 60 T 0 loo 

8*ImT 102 

101 rORMOTIXi rXBXieoiMIMeHMTb MOeUfAB MOXOAHUII OAMMHK 

• « HHH VMEHbimtO (VI CTBAM 
$T00 

3 OlTURN 

(HO 



nOJgIPOIPAMMA-4yH^ Rm (QM.DT.no,VO,R.Y.) ■ 


rtuqwoJweT 



tfcxojiHue .7iaH«H8 ; GM,DT,RO(3),VO(3)fV(3)* 

Peai^bjar: niNT(n^ ) . 

licnojiBBveMHe vmod^spr . 


n*NCT|ON qiNTtQM,DT #R0»V0*n*V> 

DIMENSION ROt5)*VO|S)»fnS)|Vt3) 
data ePS0/l.E«2/ 
data eps/i,c*io/ 

S0M«S0nT(0Ml 
NfiM»VMOO(R6» 31 
RMsvMOo<Pi 3I 
Al«2«/RM*ftP0< V»V»3 )/om 
001«$PNiRO* VO t 31/SOM 
RU$f^RtR|V#3l/S0M 
r 2»1#*AU*RM 
TAUsAt*8GM*DT#Rl«R0i 
IP (ABSUtI •OT.BPSo/ROM) 

• 00 TO 10 

ja( AM*»2*KM«n l*TAU*<RM*RT4m«#|UTAU*«R/3. l•Tiu 

AN« 4 » 

&Mb^* 

C 8 R 2 *« 2 **At*Rl **2 

V«TAU#*4/12, 

RV«-At»TAU«*2 

1 OSb ( ( AM<»C*R2) bTAU/C AN«t t I • < AM«ft 3» I * ) •«.! >*V 
tr (ABSi OS) •LE.OPS bABSIS) ) 

• 00 TO 2 

s»s^os 

A N » A N* 2 . 

ANbAM»4« 

V>V»Py/( ( AN-l. )«AN) 

GO TO 1 

2 RInTbs/SOM 
RtTURN 

|0 Pb( 2»«ALBRNt«RM»IU»«2 

R !NT»I 3* •SGM»0T-P*T Au-pm«Ri*ROM*« 01 1/ l2.BAtB$6MI 
return 

END 


31 


nOJinPOIPAMMA-^^^ R2ITTT(QM,OT,RO,Y04R.Y) 

t 

BaqacJinet *^2 ** S 


tfcxojimiB jiaHHue : GM,iyr,R0(3)»V0(3),R(3)*V{3)(^,t-tQ,r^^,v^,r. 
Peay^btaT t 

tfcno 4 B 3 yeMHe (Syrku rr: tood.spr. 

fUNcrtoa t2iNY(6M#oY»ao»vOfPfV) 
ttfnnix6n R6M)»veoi»R(3)iVO) 

D»»» «R8o/i#e-*/ 

Olti ERS/I.t<-10/ 

seM»5ttRte8«) 

ftOM>VMOO(ROi3) 

f(MftVM0Dtft*3) 

lt*2f/RM-SRRI V • V f 3) /GM 

RM«SRftt1IO»VO»3l^8«M 

RlsS^mtiVi 3)/S6M 

R|tl**AL»RM 

tiU«Ai#86M«Ot*Rl»ROt 

T»U3*TAU*#3 

If CABS<AL>.6t*CPSG/R0M) 

00 TO Ifl 

S»(l|M<»*tolRM*l • 3»R l*tilUMRM*r»U*»8«l a 

• COf lt3«RM»( 0,2RR2«TiU-ftn*( T.#R2-1. UR12* U 0 r3aR2» 

• 0.|mTAU» 0,23*R1) >•TA05)•TAu 
AH*6* 

A««St. 

V*tau3**2/2A0, 
pVs*AL*rAti»«2 ; 
t 8M2«9 ,ASm1*2. 

ft«l 3#«0Mi^l . >»R2 *«I*AM*r2*1 . 

0S«t ia®R2*tOM2««2.AHJ •CMtAU/( AM*l* I*IR-BMI*CMR|I*V 
If lOfSiOS) .Lt*EPS*A68l|) ) 

. ' 80 TO 2 

s«s>o$ 

AWfcAH^2. 

AMftAM#A» . , 

V»V*PV/M AM*1. »»AH) 

CO TO - 1- ■ -V . ; ■ ■ \ . ■ ■ ' 

2 R2inT*S/SGM 
RE^URM 

10 P*I2«*AL*RM)«RM-r12 

TAU«2>AL ' ■ •• ••• . •'-•• 

R2lNTst 5* •SG«»0T.5, •P*TAU^M, rTAL«RMl»RMrR I- M 4 • T At ^R 8" > ^ 
: • R0M*R 0 !• < ft 1*»C n • < R 1 2*< R 1*P 01 ) •ftO I I/O, T5 ) /f T AL^SGH >/*t 

• ' . RETuftM , - 

'END . . ' . 
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nomiPOrRAJ^lMA DBRIVKGK.DT.X.XO.PT) 


CJiySHT RJia BH<IBCAeHBfl MaTpiOlH BSOJqpOHHUX npOBSBOAHHX 4» ^ . 

d*0 


tfoxojHue jaBHHe ; OM,DT,X(6),XO(6)(^,'t-tj,,i,x^). 


PeayjibTaT ; Pl{6,6) (PI(I,J)-1 

IonojmHTejii.HHfl oeBVJiBTtT ; 

COMI.IOII/B1PCS/P1 ( 3 ) ,P2( 3 ) .c ( 3 ) , 3 1 , S2 , PARAB 
( p^»P 2 .o;eojiH flBBseHfie Ojihsko k oapadojotBeoxaiqr, BoraqaoRaa 

nepeMe'''iaa PARABa.TRUE. a 31 ■ >-A “ 

He HonojibayeToa) . ® 

OOUIiOH/BLA/A(6,6) ( A“^ ; - OM.n.2.2) . 

HonoJiii3veMHe noitnDorDaMtffl h (fiVHKgHH ; PCHOIC.VPB.VMOD, 3PR, 
RIRT,MATRA,MATIR1 (odpaiAaHBe MaTpHim}, MUM. 


sue ROUT INC BERlVt<OM,OT«X.Xetr| ) 

DIMENSION X0( SI >X<<>.R0<SI fVOtSI |R< >1 .V(SI«f 
• .|N0(A>2> 

COMMON /eLS/SI6>Sl 

COMMON /6LP‘S/Pl|3)iR2(>l>e<S>;tS.S>.PANSa 
LOCICSL PARSe 
DATA EPS/1. E>2/ 

DO I lal.'S 
R0(t>*X0(|l 
V0« I l*X0« l*J) 

Rcn«xm 

yi { )•xnT3> 

CALLV»B(R0iV0.r.l' 

U«0M/VM0n<R0.)l . ' 

PARAB«, raise, . 

ir taesCH) .ii,ers«ui 


call PCNOIC<ROdVO> 
ir {PARAM 


PARAB«,rilUC. 


si«2,»4 SPll(C»C •3)»DT»CM«lllNTlGM«DriftAffV|ftD V > | 
CAli i«A7PA(OMf DT»B»V» A) 
call i4ATftACOM»0epA0»V0iA0l 
caul mat tNMA e AfA*A*t* tMOeNtA pOIT > 
call MUMI Ap A«» ri»S.«e At 
peruRM 
CMO 
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fl0JgIP01TA!iaA DEaiVg(GM.DT.X.XO.gl.PSI) 

CjiyRUT am BU'taoJieHaa Marpm HsoxpoHHux npoHSBOflrtHX nepBoro 
B BToporo nop«,HKa 

dTo d^o^'^ 0 * 

gcx'0.gHHe flaHHHe : GM,dt,X^ 6) ,xo(6l(^^t-i:^,x,x^) , 

PesyjiBraT : fi(6,6),psi(6,6,6)(pi(i,j)=$j^j,psi(i,j,k)='5'^j). 


' iHonojiHHTeJibHaH pesy^BTar : 

COMMOH/BIiPCS/PI (3),P2(3),C(3)fS1 ,S2,PAHAJ3 
COMOK/BLA/A(6,6) ^ 

(to me, qTO B DERIVIjeCJIH PARABr:. true., 32=6 \ r^dt) • 

Ebno/rt>3.YeMRe nojinporparviMH a (fiyHKUBtf ; DEniVT,R2iNT,MATf?D, 


TRM,rmi . 

SUBROUTtNC OERlV2<GM,6TiXfXO»r !»^$!) 

OtMEMSlOM X 0(61 ixUl iR0(3J »V«< 3) »<U<I iVt5» »rt <«•<) r 
• . P5Md#«#4>*r|rU#6)#DU*d)#O0U»6) 

COMMON /Bt&/AC6#6l 
COMMON /BLPCS/PCS* 10 ) #S 2 »PARAB 
COGtCAL PARA 6 
Co 31=1^3 

Ro( M Bxo ( n 

VOt ! >*X 0 ( l> 3 ) 

t)*xn) 

3vti)*<<l*5) 

CAtl 0 £RlVU 0 Mi 0 T#X»X 0 »P!) 
bo I 1=1,216 
J psn I )«o, 

if (PARA8) 

S2a6,»R2lNTtoM#0t,R0#V0,A»V) 

00 2 L=l»0 

Call ma troj om # ot » r » V » 0 » l 5 
call TRMtrl • fIT»6»6) 
call MUH( D I r t r OO » a » 6 r 6 ) 
call MaM(rtt,O0*0» A»6»6) 
call matron 6M»0,/RO*VO»00»L) 

00 2 Ksl, a 

00 2 ! 3 I ♦ 6 
00 2 J5 1 • 6 

2 P 3 tniJ»K)*PSl(l,J#X)^A(K»L)‘M 00 (liJ)-n<l»J>) 

return 

ENO 
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nOmiPOrPA/ylMA DERIAKGM.DT^X.XO^FT,^) 

Cj^mt ,u;ih BUuncTieHUH npOM 3 Bo.nHux <D =— , 5^0 — . 

dx Hii 

PfcxoiiFTiJe .uaHHjje ; G?i,DT,x(6),XO(6)(jut/t-t^p 

PesyJiBT aT: PI( 6 , 6 ),X?^( 6 > : ) - 

McnoJifaaver.'nje nounporpaM^ynj ; DERIV1 ,MUMV. 


SUBROUTINE OCftM U CM . DT . X « X 0 » f I # XM ) 
dimension Xn(6)»X(6>,m6,6),XM<6> 
call DERIVl<GM,OT#X*XO»rn 
CALL MUMVI ri ,X0» XM, 6) 

U«X./5./GM 
OO 1 J « I r 6 

1 XMCI > »U» < X < ! i -XM( ! > ) 

return 

END 


OIK 
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nOJCIPOrPAMMA l)}::RM2(GM,DT,X,XO,?I,l>31,}ai,XMM,IMX) 


C;iysHT BUH0o;ieHiifl npoBSBOAHHX 

— ^1. k=n...,6. 


. 

<**0 

*11 ■ ~ » 
^ df» 




d^X 


d^i 




d« 


tfcxojiHue jaHHue - . om,M,X{6),XO(6)(^ 

PesyxETaT t PI(6,6),PSI(6,6,6),XM(6),XMJ^(6),XMX(6,6) 

Hcnojn.3yeMue nojuiporpaMMu ; DERMi,DERiV2,»iUMy, 


SUenOUTlNC OeftM24BM»OT»KtXD»r(»Ptl)XM>XMM,>XMX) 
DiHtNsiON xoi«tix(«»«rii<>«>,»si<d,«,6i >XM( 

• XMX( 6«4> 

CALL oeftMiioM.or.x,xo>riiXM) 
e«LI. OERtV2(OM«OT«X*XO»rt •*>>) > 

DO 2 K*ttO 
00 2 J»X..O 
0*0. 

DO 1 1*1. « 

1 U*'U*XO( neXsi I I > J *K ) 

2 XMXtX»j>«U 

e«U MUMVtXMX.Xe>XMM.«> 

0»-2»/3. . . 

DO J |*lf« 

3 XMM( n«U<>XM( I 

XeTORN 

SND 
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i>i^im£(gm,al.ri ,r2,tei ,pi) 


BH^MCJiKeT Bpewui nepe/tei'a ^2*-'^^ (co shokom) 
wojiowmmm na opc>HTe, sauaHHHMH paAwycar.iii r^,r^cTWHHoM aHO- 
wiaJiMeM nepBoro noJio:xeHMH h yrjioBoi^ Aa;n>HOCTbio jiepe/ieTa 
I/Icxo.ii.H«e AaHH»e ; GM,Ali,an ,112, Tin r-, . 

PeayjibTaT : 

npHMenaHHe , 3naK pasen anaKy ^ . Ecjim na aJiJiwnTMMeo- 

KOil OpdHTe (p».iPo+^l^p -2JT«po< 2tJl’ , ko-1p-2.**,p 
TO K t2-t^ npiic 5 aBJiiieTca BCJumiiHa kiJ?o 
KonoJibayer/iafl no.unporpar.iMa : CS # 


function 0TtM£(GM*&L*Rl»ft2jTei»FI> 

data FI 2/6, 26318550 TJO/ 

A5H(X>oAL0G(X*SaRTCl,^)(*«2>J 

C«SaRT(Rl.*«2*ft2o*?.-2^oRl’«R2«C0S<fln 

$lc(Rl^R2^0/2. 

$ 2 *S X-C 

AIMS A6S ( At) /^2 , 

AsSORT(At«*St) 

B^SaRT ( ALM« S2 > 

STEs.SUtTEl> 

W = S I G N ( 1 , p SI N I A B S < r n > > 

IF (Al) 2f2fl 
X Gb 2 .oASIN(A) 

0*=2 , ®AS IN«6 I 
Wlsvi# 

IF (STE<»SIN(T£l^Fl>,tT, 0 ,X 

- W1o-F|*>STG 

IF (WI.LT ,0, > 

“ G0PI2-5 

GO TO 3 

2 G »2 . <»AsH( A ) 

0«2,®ASH|P) 

3 X«S I GN C Ooo 2 • At ) 

{ GN< Ooo 2 » A t I 
call CS< X ,CX , SX > 

CAtL' CS < y rC V p 8V > 

0 To(S 1 /CXoSQKT(SX/CX) os x-WoS 2 /CyoSaRT <S2/CV)osy»o 
* S I GN « 1 * /SfiRT < GM ) r r 1 i 
IF (ALoRX,L£,X.E-B) 

- GO TO 6 

0T«0T’>SlGN«AlNTCA8s(rn/Pl2»pFl)®RJ2/AL/3QftT(6L®CM> 

A dtimfoot 
RF7URW 
END 
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nOilflPOrPAWtt ABBL(OM.X.HBL.KL) 


CJiySHT AM BU«tMC/ieHUiI OOBOXynilOOTB BAeMeHTOB OpdtfTU f, 

oflpeAeMeMoli mcaom (cm. b.3.1). 

tic xoAHHe ABHHue : OM;X(6).nig. t/« .i. . 

PesvaiiTaT ! EL(6) (y)t 

JIonoJiHHTe.)ibHHfl pe3yatTaT .^comoH /BIiEL 4/ P,iac,w,u (Pt«i 


CO:WOH/BUl08/AR,AC,C(3),OO(3) {r,O,O,o/0) } 
CpMlIon/BI.3C4/SOM,C011,3U,pU (alnjQj, eosP.sln u/_.ooe u). 
nbmeqaHHe . Ecm aaRaaaflHHe SAeueHTH Be c^rmecTByipT Ha sa- 

baHHOfl opPBTe (Hanpmep, nepBoA T > ra ranepPoAe), neqaTaeToa 
cooTEeTCTBynuHfl TeKOT H o«?eT npeupamaeToa. 

tfcnoAbeyeMBe noanborpaMMH h (ftyHKnHH t TObDj3PR,VPB,H0HM, 

ATAA3iBtJMBL,OTDffi, PDIAON, 
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SUftROUTtNEi *BCUOM.XtNe|.»tl> 

OIMCNSiON X( aritlKI tRO) *vts> 

OlMeNitOH Hti): 

eau tvALeNce ; lu # (Na»N<>)>* IN3»N<3)> 

et'MMON /atRCa/ARtACiCtSItCoO) 

EQUtVAtBNCe (Cl •e0< 3)1 
cffMMOM /atsc4/soM»eoM>suiCu 

6*ta R|a/a.aa3ia93oxia/ 

..■DO '-l - I«ii3 . 

R«n»*n> 

:l ,v« J »•*! i*3» 

ARRVROOrRf J) 

AV»vN00IV>3> 

VRASPR<«iV»3»/AR 

ta <ABs<ABS< vA>/AV'i. > .er. t,c4«) 

90 TO i 

: K»4 ' 

60 TO at 

a CAit vi»o<R*vtCJ 

call. NORM ie#co>Ae) 

P«ACf*-9/6H.:' 

si*soRTTAas(( u*et )•( ii4cn > t 
IT «Sli9Til.S*a> 

'•-■•■ ^ 00 TO J 

aoimo; ' - 
COMslt . 

60 TO * 

3 $eK«CO<lt/St 
' eOM«oeO<2T<'3t 

A SUtr(Uft( ll*S0W4R(2l*e0MI*et*R(3>*Bt I/AR 
eua(R( tueon*Ri t)*aoio/AR 
U«AtAN3Csu»eul 
eCTaR/RR.l..: 

E4TaR««R/AC 

rtaeOT>3.ti'tsT»ev 
raMCTaeu*C3T*su 
. exa80RT(rt**2*r2*ta> 

B*xan;*sx>*u.4tx» 

CALcr^NUMutNectNi 

60 to l0iS»0.7)»ttt 

,9 tr {AB9<IXt)^0T.l.C>at 
■ •• ■ oo TO a 

60;.t0 |T, 

♦ !r;i63.UI,3» 

■•'.••Vv'.? • .OO-.TO 10 . 

r If.viiRiior. ».e»*o> 

• ■ . 00 1 0 to 

.v'ka3 V- 

• eos To «» 

to ALAifXl/R’ 

ALMbABSUU 
ANa«t.»S4RTt ALH*OM> 
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60 iS 

tt cm>«o 

60 TO 19 
l 2 EL(|>Bt>/«l 

60 to 19 

U EUll»-*t» 6 *» 

60 to 19 
I* ELI t>«OI2/*N 

U •*• 0 . 

ir i«K.ot.i.e-ot 

- NB«7*N9IOl«rtl 
60 70 llOtir. lO>lt|«N2 

1* (lltlari 
eusiara 
GO to 10 
i» tM{>*ex 
ILiliBN 
10 liutoei 
ir I Mi. LI. n 

• iL<«isiron9(ai«G|t 
eii»>BGfaNjitOHteoM» 

ir IMS. MI. II 

• 00 re «o 

ILIOiBU 

OltUOM 

re ir iixl.li. t.(«o. • mb, e.o?. ota/s, t 

GO to ite.ai.aa>it« 8 t><M 9 
tl TIOB'W ■ 
jBri 

ir u.*s.or.i.s*ioi 

' '00 to ai : ■ ' 

0« lot 100 

too rooMtti 'Goeu ooes. vsoa Min BMOMeineiirGB 

• * or niONitiNf 00 »i 

.11 TEObO.- I-.,. 

|BE» ^ 

■ IS 'flBU*N>tEO ■ 

•io»o/a,rii.. 

. (t. ii»t.et.&,i>Gi 

- GO TO iO 
It lu-N.ot.rii/i, I / 

• ■ ■ ' - n«f(i»?j8. 

GO to 29 

10 IT in.LT.O.I 

- riofiorit 

29 otoot|Ht(G«*aLfOao>aa< 7 iOiirii , 
ft IMS, 07, 9 1 
^ OroDtsAH 

ELIGIbOT 
26 lEtURM 

It OAlL OOlAGNI >AOIl'’i)K» 

EMO 
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nOJUIPOrPAMMA BLAB(GM.NEL.EL.X) 


CA7SI3T jsjsa BUq^c^eHiu BSKTopa npHMOyro;o>fffiz ^sobux Koppotr- 
H8T X no saAaRRDti ooBOKynHocTH BBeMeRTOB op(5HTU y t onpewmeuotl 

qHCJlOM Hgjj. 

HOXOUHiie .UaHHHe ! QM,OT31.,EL(6)(^,lIgjj ,y) . 

. PeayjiBTaT: X(6). <x) . 

npHMeqaHHe . Hpa ReapasRABHOM sanaRiiR ezeMeHTOB opORTU bzh 
qucJis neqaweTca cooTBexoTByiaiiRJl xeKCT a pqex npeKpaojaeTOfltI 
McnoJiBByeMHe nojaporpanMH h ayRKgug ; numei.,aiaH3.kepi.eh . 
'TufliBOol'rNe"Et'A6»c«V«^^ 

DIMENSION Eu< A)tXU>.ROm «*0(3> 

DIMENSION N( 5> 

equivalence iNt«Ntin>(Ni>N(2n»(N3>Non 

data pi 2/«, 26316330716/ 
call NOmELINELiH) : 

GO. TO (1.2,1,2),n2 

1 P1«EL(2) 
r2»et.f3) 

exssoru ri««2*P2>»2» 

w»o. . - ■ 

If (EX.6T. i.e>a) 

- WnATAN3I ri#r2» 

GO TO 3 

2 £XbEL( 2) . . 
ir lEX.LT.Oi > 

00 TO 23 . 

W»EL< J> 

SNsSlN(M) 

CNcCOSIH) 

riBEX*SW 

r2B£X»CW 

3 continue 
EX l»«l.rBX)»«l.»BX> 

io GO TO (ll.i2,l3tlA).Nl 
tl P«ElM> 

GO TO 16 

12 A«Cl* 1) 

GO TO 15 , , 

13 IP I ABS(ElM) > .LE. l.E*12t 

- . ■ ■ GO TO 23 

A«-GN/EL< 1» ; 

GO TO 13 

lA If tELm.LE;o.,OR.EXl.LE.l*E-#> . ' - 

- . ■■■ • . 60 TO 25, 

A»HeLtl>/PI2»»«2»6«)«*<i./3,> ;; 

i5 -fBABexi ■:■ ■■■ 
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16 ir iP.ts.o,) 

00 TO 25 

ir <N2,OT*2) 

50 TO IT 
(CU4) .IT*0, ) 

- 60 TO 25 

SI»S tN< Cl< 6) ) 

CI»COS(Cl< 6) ) 

CO TO 16 
IT CItEL<6) 

ir ( A8SU! ) *GT , I, ) 

.60 TO 25 

sr«sQRr<(i,-cn«(i»^cin 

16 SOm«SIM( E t( 5) ) 

COM>COS< El < 5) ) 

0T»eU6) 

GO TO ( l9#20»2Xf 20 i21> #n3 

19 SUiiS IN( EK 6) ) 

CU»005(EL<6)) 

CO TO 23 

20 

CUttCM 
GO TO 22 

21 

CU»l, 

22 tr (N5.i.E*3> 

- 60 TO 23 

\r (♦xi*ce. 1 * 8 - 6 ) 

- 60 TO 23 

\r (Ni.ea.i) 

- a«p/£ki 

OT»oT*A*SaRT < */6M> 

23 ARtiP/(l,tri*SU»r2«CU) 

AC*SP2Tt6M*P> 

vR*AC/p*<r2*su-ri*cu) 

VN«aC/AR 

R0« 1 > «COm* 6U*>50M*SU«C 1 
ROC 2)»$0M*CU^C0Mo8il*e) 

ROC 3>'*SU»SI 

$0C 1)«-C0W»SU'»S0W*CU%CJ 
SO < 2 ) »-SOM^SU*COM*CU«C I 
$0< 3)»CUo5t 
DO I»lj3 
X< n »AR»RO( I ) 

26 X<t«3)?VR*R0C|) 0< } ) 

IT (N3,Ca.l> 

- RETURN 
CAui KEPlER<CM.OT*)(«X) 

RETURN 

25 print 100 

100 fORMATc fELAB : HE6EPH0 SAAAMbC dOEMEHTN OPSRTbi ' 

• MNCno mel> cTon») 

STOP 

ENO 
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HOjmPOrPAMA ELEI(GM,IfEL1,EL1,NEL2.EL2) 

pJlyaHT BHSBCTOHUH COBOKynHOOTH 8JI0M0HTOB OpCHTH 72* 

onpe,neaa0MOl! <jhc;iom n ^^2. no sajiaanoU ooBOKyiTHOOTH s;i6MeHT0B 
y-f, onpefleafleMofl 'ibojiom ^ 

lfoxo.uHne flaHHue ; gm,nsli,eli(6),nbl 2(JU ,Ng^j ,yi,Ng^^. 
PosvjiiiTaT : ELaceXyg) . 

M&nojrt>3y0MHe nojuiporparam ! slab.abel . 


subroutins iueL<oM,Neti<Eu»Nei.a.6La» 

DtMENSSON tU(i» iELa( A> >X( 61 

C«U:EL4B<0M,NEUieil>XI 

CA(.LAB8L(SMiXiMEL2«EL2> 

RETuRH • 
end 
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nOMPOrPAMf/IA PELOEL(GM.ELO.~KEL.EI..fEL) 


C;iyaHT ,uaf: BumoJieHm Maipinuj npoH3bo,imHX 
TOO - ocHOBHafl coBOKynnocTb sJieMeHTOB opdaTH, y - 
B^ioMeHTOB, onpsfleaHeMafl qjioaoM N g^. 

IfcxojiHHe jiaHHKB ; QM,eio( 6 ),nel,bl( 6){^ 


ooBOKyn- 


PesvjibTay ; PEL(6,6)(m(i,j)-?3Ji^j). 

IlpgMeqaHHe . Ecm fljia aajiaHHoft coBOKyinHOCM y j,taTp0ua P 
He cymeoTByeT, neqaTaoTCH cooTBeTOTsyonfill t 6 kot h cqeT.npeKpa- 
taaeTQH. 

MbnojBayeMHe noanporpat.iMH ; numeLjPDIagn , 


subroutine •*elo£l< cm. hlo. nel ,el • peu » 

DIMENSION ELO ( 6 > I EU« 6 ) , PEt( 6, 6) > Z ( 4) 

0 I MENS I On N < 3 ) 

EQUIVAUEnCC (Nl»N(l)>»<N2»N(2i)HN3>N<3)) 

data 2 / 1 . # I . E » I, 9 / 

DO -2 Ib1,6 . 

OO i JbI.6 . 

1 PBU I » J)o0, 

2 PELU* 1 >* 1 < 
jr (NEl,.Efl. 0) 

•» RETUNN 

CALI NUMEt < NEL » N > 

FI»EL0(2) 
f2»Et.0( 3) 

EX»saRT«ri<^®2^r2*»2> 

EX1«( 1, tEX) • ( l.tEXJ 
K»2 

If (MloN3,NE,l,AN0.ABS(eXl).LE*l.E-8) 

00 TO 3i 

10 P»ElO{1) 

AIbEUO< 4) 

U*EL0C6>. 
jr (Ni.Eft.x) 

- 00 TO 12 

Asp/EXl 

PEL( 1 » I )sP/EL ( I )/Z ( Ml) 

PEL(1.2)e-2.ttA*EL«2> 

GO TO ( 1 1 , 12, 1 1 , 12) #N? 

.llPHL(l»3)s-2,*A*f2 

12 GO TO tl4»l3,l4»l3)#H2 

13 $¥tss I N( 6 L < 3 ) ) 

CWSC05 < e L < 3 ) ) 
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P6t<2*2>aSW 
PFL ( 2 ) eCW 
PEL(2;3)*r2 
PEL(3#3>»-rZ 
!F tN2.LE,2) 

OO TO 16 

StaSlN(Al) 

ir (ABS<SI ) ,GT, 1.E-10> 

OO TO 13 

K»0 

GO TO 31 

15 P6u(4f A>orl,/SI 

16 ir (N3.Ea.i) 

PETUPN 

SUcs!N(U) 

CUsCOsCU) 

RaP/tl,tri®SU*r2*CU> 

ftOM=p/( 

C«SQRT ( GM«P > 

GO TO tlT#.20,l7,aO) »n2 

17 !F (Ex,te,i.E-a> 

00 TO 18 

sw*n/EX 
CW=r2/EX 
GO TO 20 
10 K«1 

GO . TO ( 30 f 31. 19 »31 , 19 ) .n3 

19 SWsO.. 

cw*u 

20 Sls(l.>P/P>/EXl»(SU*CW-CU«5W) 

If (N3,0T,3) 

GO TO 2l 
PEl( 6* 6) sC/R/R 

PeL(6,l)s-1.5*PEl.<6.6)*eL(6)/EL<l>/Z<Wl) 

If (Nl.Eft.l) 

Sl«Sl-3,*PEU6#d)*EX*EL< 6)/EXl 

GO TO 22 

21 P£t(6»d)«<P/R»**»2/eXi/SaRT(EKl) 

22 GO TO (30.23,25.23.25) .n3 

23 S3ai, 

GO TO (26,28«26.2B).N2 

25 $ iss l4> ( ROM/R > ** 2% < 2 • i f 2 ) /EX 1*SW 
S2»R0 w/P%« l,*ROM/R)«( ( li-^'CU ) %CW-SU«SW> 
S3aS2*EX . 

GO TO ( 27 . 28, 27.28 ) .N2 

26 S2al./EX 

2T pEt(6,2)aSl*$W*S2*CW 
PEL(6.>>sS1*Ch#-S2*SW 

RETURN 

20 PEt<6.2>=Sl 
PEL<6.3)=S3 

30 return 

31 CALL POlAGN( ^PELOEt ".K> 

ENO 
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nomiPQrPAfm PELBL(GM.HEL1 .BLI .IT£I.2«EL2.P£L) 

CjiysHT jyM Buqac^ieHHfl MaTpracH npoHSBo.iuiHX 'P g^j= t 
Pfle yi»y2“ coBOKynHooTB a^ieMSHTOB opOHTU, onpefleaieMHe H0om- 

Jioxo.nHue jaHHae?nM,TmT.i ,eli (6).ip:i.2,EL2(6)^,i^^j ,y^ ,i^^r ,y^), 
Pe3y;n.TaT ; pel( 6,6) (rEii(i,j)=Pg^j) . 

HonoJitByeMHe narniPorpaMMu ; si.£L,PELOEL,i,tATiNi (odpameHHe 
MaTpHUU), MUM. 


SUBROUTINe'PeieL<SMiHet.l>ELl>NEL 2 >EL 2 >PeL) 
DIMENSION El.l(«),EL2(A>>EL0(S)|Pei(&,6)> 

0 PE 1 1 ( 0 t 0 ) > PEl, a< 6 t 6) > t nDI 6 » 2 ’ 

CALL: EU6L<OMiNEl1.ELI.O.ELO) 
ft»LLPELOEL(6MiEUO.NELl.eLl»PEH) 

CALL PeLQEL(CM>SL0|NEL2>EL2>PEL2) 
CALLMATlNl,(PELl>6,fi.e.O>INl).NERiOEn 
call MUHIPELlrPELE.PELfA.e.A) 

RETURN 

end 
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JIQMEQrPAMMA PABEL(QM.X.NgL.SL^PM) 


CjiyKHT ]xm BWVioJi^um MQTpami npotisBOAHax P « ~ • 

TA© coBOKynHocTs B/ieweHTOB opC5HTu y onpeAe/uieTCA q«cA(».i 
Hcxonifae naHHue : GM,X(6),NKL»EL(6)(^,XtN ,y). 

PeayjibTar : ra(6,6 ) (pm(i,j)-p^j) . 

Hono.nb3yeMHe npunporpar^Mu ; abel,peloel,mto . 

SUBROUTiNf PAB€L<OM#XfNei#Cl*PM> 

DlMSMSfON X(6)*etC6).Et0<6)iPM(6iR9tPeL<6#e’»P*U(6fdl 
COMMON /BLRCd/AR/AC/Cf 39 #C0I5> 

EOUt V ALeNCe iCi fC0( 3) ) 

COMMON /5C5C4/SOM«COMfSu»CU 

cautvAceNce <PiELO(iM«<r2,<LO(iii*fAi»fLO(An 

CAtl ASEl<CM,X»0*CcO9 

Cltt-*P/P 

C2bAR*SU 

C3>ARo*2/AC 

CA».-0.3/P 

C9«AC/P 

C«» < f2*CU 9 /P 

C?*-C5/AR 

DO 1 I s & « 3 

PM< I » n»X< ! >/P 

PMC I I ) 

PMC I » 3t»Cl*CU*XI I 9 
PMC 1 t 4 9 »C2*C0< I 9 
PMC 1 •69*C3«XC 1439 . 

PMC I *3i J 9 «C 4*X ( I ^39 
PM< I ♦A* A 9 «c 6*C C I 9 
1 PMC f ‘*^3> 6 9 4C 74X C I 9 
pMC I • 59»-X( 29 
PM C 2 * 39 *X C 1 9 
PMC 3#3>*0. 

PM(4*3)*-X(39 
PMC 5t 59*X« 49 
PM{6»59«0. 
pMC 4»2)**C34C0M 
PMC 3»2)»-C5*80M 
PM.t 6»29 *0, 

PM ( 4# > I «-C 3«s0M*C| 

PM( 3»39s C3«C0M*C1 
PMC 60)»C3*S1NCA| ) 

(NCL«tO,09 

• RfrORN 

CAUL Pet0ftlCM,lL8,Nf L#et •rtL9 
t*LCL MUMC »M , P2^ ♦ PMl » 4 • 6 * 6 9 
DO 4 V 1 s I • 34 
. 4 PM( I 9»PM|U 9 
PiTUtN 
IMD 



nOJIgPOrPAtlMA PEl>&B(GM.irSL.BL.X;^^ > 


C^ysHT ,iwia BHTOCfleHfia fmpiiiiH npo 03 BOflHHX;p o j. 
r;ue coBOKynHooTb 3 /ieMeHTOB opfiaTH y onpeXeJM^Tcc mcjiom n 

tfcxojHHe aaHHHe ; gm, 1 TEL,EL( 6 ),X( 6 )(JU,i^ V y,^^^ 

PeayjBTaT ; pm( 6 . 6 ) (ra(u)»Pj, ^ ) V 

feno-TBarveMHe riojinporDaMMH ; pabel , laATim ' ( otfpameHHe MaTpaqia^. 


SU6«bUTINeV>et&6t 6M»NEUieLi**PM' ,. 
DlMENStON X( 4) <EL( 6) i PMI 6 , 4 > r t NO ( « i 2 ) 
C«Lt PA8EL«8M»X*NEl.*ei,»PM». 

CALL' MATlNHPMi6;6,4,0i I NO , N6 R vOE T ) r / 

RETURN' ■■■ ■ - 

END 
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nOJgIPOrPAMMA . DERIVBtGM.DT.X.XO.gI) 

Gsswii JSJSl M8TPHIIH npOHSBOlAflUX ^ ° ^ 

BTOpKM CnOCOdOM. 

HcxoflHHe flaHHhie ; GU,M,X(6),iuj(6) ( JJ 

PeajfljbTar: pi(6,6)(pi(i,J)«. • 

Mo^oJIb3ve^Jne nonnDorpaMMH ; ABia,PABEL,PELAB,liUM. 


subooutink oCRtveioM,or<XrXOirt> 

OtMeNSlON XOI6)tK<6l«8L(A>i^t(6«A)* PMl ( A, « ) i RM2( A »6 > 
C&LL ABBLtOM.Xil.CL) 

CAtt PABCLIOH>X>l>eLiPMt) 

tUCfl»«Bt«6»-0T 

CAU' PeLAB<OM>l>eL.X8)PM2) 

call MU'-(PH1,PH2,P| .a>A»A> 

ABTURN 
8MO . 
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BCnOMQrATEJIBHLtE nOJICPOrf ANIMLI PI CByHKUHH 


03 

PCHOIC 

MATRA 

MATED 

G 

miMSI. 

FDIAQN 

ATAK3 

VMOD 

NORM 

3FR 

vra 

MUM 

MUMV 

TRM 


- BHqHc;ieHi!8 ^yHKUHJl o(y),s(yKcm. n.2.'I); 

- BHOop BOKTOPOB P^#P 2 SSJ^aHHOMy BeKTO- 

py r (cm. n.2.2); 

BuquoJieHJae MaTpsqm a (om. n.2.2); 

- BuqHCJieRHe MaTpHii d^ (cm. n.2.3); 

- BuqncJieHne KOMncBCHT MaTpnou o 

(cm. n.2.3); 

- paaOKeHHe <?HCJ!ia h 3jj hr ^Bcna^V^+I, 

Vyi-I (cm. n.3.I); 

- neiaTb AnarHOCTHKii a coTaaoBRa MamiiHB b 
oJiyqae, ecAja npa HonoobsoBaHHa aanaBHoS 

COBOKynHOCTB 3JieMeHT0B OpdBTU 7 B03HB- 
KaeT ocodeHBocTb; 

- BuqacJieHHe arotg ^ b AHanasoae [0,29); 

- BHqticJieHBe MOflyja H-Mepnoro EeiCTopa A ; 

- BuqBc;ieHBe. HopMu ao h mcayah u 3-iviepHoro 

BeRTopa A ; ' 

- BUqBCAefliie cKaAspHoro npoBSBeAaHHa 17 -Mep- 
HBZ BOKTOPOB A,B; 

- BuqHCJieHHe BeRTopHoro npo03Be.ueHBa 

Ax&=C; '* 

- BHqacJieHrie npoasBaneHiiH AB « C, rjtie 
AtB|C - MGTpifim pasMepoB locM^MxR^lizni 

- BM^moAOHne nponsBe.zieHaH AB » C, x^e A - 
MaTpRUQ flopOTKaH , B,C - n -^eprae bck- 
Topu; 

- TpaucnoHBpoBaHCtc MaTomiu A pasf^epoB 
peayAX^tax - Maxpaua B pasMepoB Kxm. 
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stieROuTiNi eB(y>e»si 

• 60 TQ a 

INaJ, 

C*0. J 

CMse«9 

SNsi9/6* 

1 AM«AN«2, 

CMs.CN/t AM«l*>/An»V 
SN«»SN/< AN<^i« 

CBC^CM 

S«S^SM 

IF CA8SCeNl«l.e»i>) 5»iil 

2 x«saftT< Aitfvn 

- 80T0 3 

.XsCOStX) 

SXiStMi X) 

GOTO A 

3 CX»CXf(X) 
cx«o*3*itx*expi -x) ) 
5x«ex*cx 

♦ c»Ut-cxi/W 

$«<X«*SX)/X/V 
3 RETUI^H 
EMO 


SUOROUTINE 'OCHOIG(R.»V» 

OlMCNStON Ri3)«V(3> 

COMMON /0lPC$/R|C3>tR2(3) •C<3»*Si*S3iFAAA0 
UOGICAI PARAS 
ARsVMOOiRi 3’ 

AX«VM00< V*3^ . 

ir ( A 0 S(SPRU*V» 3 M .at. 0,R«AR*AV.OR,PARAO.I 

00 to 2 

00 3 I«1.3 
RU I )«Rf n/AR 
3 R2C I >»V( n/Av 

RETURN 
t Kl«i 
X2«2 

If (A0s(RC2>>.6T.AiS(R<3)>t 
- K2*3 

\W (AOS(RU>).OT.AiS(RC2))«ANO.|t|.IR,3» 

-- Xl«l 

tr lABS(RUn.QT.AOS|RtSM«ANO.X2.ta.|> 

• X|«3 

00 1 t«1.3 
Rl« I l»Q. 

1 R 2 t n*o» 

RX(xn>i. 

R2(K2>«i. 

RITIIRN 

END 
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"SUB«Out!|ie MATrA<GM»OTVH#V» A> 

DtMSNliON ft ( 3> *V( 9) #A( :6».6) iUO> »W( 3) >ftt(S>»Zl(3)#Z2(5)t 

COMMON /5LPCS/P(3# 2) ,C( 3) tSljf S2»ftARA6 . 
tOciCAu PARAB 
RM»vMOD( ft r 3 ) 

6m» 6M/RM/RM/RM 
DO 2 l»Xi 2 
• bo X J»X^3 
X , P! « J )«Pf J* I ) 

;CALL VPB(PI »R>U) 

C*Lt VP6« V*PI »W> 

CAuu 7PB<R»U#2X> 

caul VP6( V,W,22> 

CAUt VPB{Pi •C>Z3) 

CAtL VPB(ft»W,24) : 

00/2 jal»3 

A< i ; J^3)=U( J> 

A:n>2* j >SGN*ZI( j)*Z2( J> 

2 A< l^2* J>3)»Z3U)>ZA< J) 

; IP <PArtA8) 

, . . ^GO TO 3 
C2al. 

..C3i2*. 

C 4 ts . 3 * # 0 T 
CX®C^*CN 
GOVtO 3 

3 C2«SPft ( C »C • 3> -0M*RM 
C>oC2.- 

•. c4«r8X. 

ir^cot.ea.o. > 

T.'-' CAbO#. 

/ci»GW*SPR<ft » V • 3)./ftM;»C:AoGM 
5'00'.6 ,JsX,3 

A C 5#J )=6N#R C j ) 

3# J>3>®V( J) 

A( 6»J >3Cl*R( jl^C2*V< 

6 AI6;j^3>»C3*RCj)4C4*V(j) 

.RiTUftN 

sue rou n Fe tr 6 roMVo~t • r , v Vo # l J 

DIME NS I ON R I 3 ) . V < 3 ) # Oi A k 6 j ^ Pb < 3 > « V C < 3 > # Cft ( 3 ) 

COMMON /BLPCS/PC3»2) iC(3) iSi#S2#>4RA0 
UOci.CAt PARAB 
: RMaV«00CR»3) 

CNoCM/RM/RM/RM 
OO^X. IaX>36 

X on|®o. 

GO : T0 ( X0« X0» 20*20; 30# 40) 

10 D«X.5) = Pt 3»L) 

0< XV0)a-P<2»L) 

0<2»6>yp(l,t) 

00 41 I * l , 3 
OO' il%J«iV3 

T ^ r CJf t ♦3)a-b< t • J^3) 

;;xt;b:n>3»j isdIj.i I ♦JV' 

; ;rE-TuRN ■■ 5 - 



20 tlBf 2 

yPayi 1)*PI 1>L1>*VI2I*P(2<LI>«VI>MP(3»L1) 

00 21 t«l.s 
00 n j»i»3 
w«o.. 

ir lI.EQ.JJ 

* V( V I • 

0( t I * JffttGN) . 

Of I t J«5)«V( n*P(J*Ll)-2»fP( 

0< j^3# 1 >*0( I # J^3) 

21 0M*3»J^3)«U-*2.*RP*W 

R<rra«w 

50 t>0 52 l«l»5 
OO 31 J«l»3 
31 0< I » J )>*C( 1 » J »R »CN) 

52 0M^3,I^5>»1, 
ftf TuRki 

40 U»3,»OT 

\r «parab) 

- 00 TO so 
00 42 I«l»3 

OO 41 JP1>3 

41 Q( t « J)«U*QU • JoRoQN) 

0M*l^3)«l. 

0<I^3,D#2, 

42 0< !♦3, l*5)»*U 

return 

50 CAUL VPBCV»C»VC) 
call VPeiCiRiCR) 

R2bRMoo2 

OO 51 |»lf3 

51 PS( I )«-0N»R2®RC I )«-VCn > 

RPPSPR(R*PS*5) 

VP«SPR<ViPS»5) 

Closl 

C2PS2 

ir tOT*MI»0.) 

CO TO 32 

C1»0« 

C2»0t 

52 00 33 j«l»5 
W1»U»VCU>-C2 »GNoR<J14CR(J) 

W2»U*CR/ j;-C2#V<j>*2.«r2*R< 

00 35 I«l»3 

W*0* 

ir u .to. j) 

- rt«l , 

C3b»I I )*PS f J) 

C4»CN»R| ! I 

0(!2J)aC:«G(|iJ,R*0N)«Vl II •PS < J > - w P •w-C 4*rt 1 

01 I 2 J«5I«RP»M*C3»C4«m2 
0< !*3i j>»RP»«^C3*V( n»wl 

53 0*J^3,j^5)a*C l*wV < I I •wa 
Rf ^URU 
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fUNCTtON 
OtMCHStON R(S) 

tp I i.ea,j> 

0a0-6H 

return 

END 


tURROUTtHt NUNSIInBVvN) 

DIHINsION HOliHMOt 

|f <NSu>t.T. 0) 

. NELB*NgL 

NU>*NSu/ieo 
N<t>*NEL/10«>N( t>*IO 
N(3)*NEL*NI i>*100*N<8l*10 
60 1 |Bil> 

IE (N(t>.L(tNNin> 

- ■ 00 T6 I 

ORINT 100» t iN( I > . 

100 fOTtwoTt* NUNEL I nPHIHiR H«U«aMt« iRftoH' NlOefHOl T 
• » nPuMuMAlTCfl 8 8M 

N«t»8fl 

: N< h*MI I >*1 
REfuRN 
INO 


SUORRuTtNS PDiOON<N>UORiRt 
OtMENtlON NkMeOi8) 

ORTA NftMg/? KPVrOORSl fi» naPftBOnNMECBER '* 
o 'MesnnMnTHMecKRfl*. ' npRMO/iNMEOHRR •t 

If (k.hC.OI 
. 60 TO 1 

PRINT |00|N8U8R 

100 rORN*T(*T': HwniBoe HittflOHENHgi 6fon*» 

STOP 

1 print lOl >NSU0 R> CNIMSI I iO) > )81< )> 
lel fORMRTIRTM ‘IROiU* OPBMYfll CTOOM 
STOP 
EHO 


rUHCT|ON AT*N5(X<Vt 
U»AT*N2(XfV) 

IMUilT. 0. ) 

U»U*4. >0)109)0*10 

1T1N)>U 

RETURN 

ENO 
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fUNCtlOM VM80<*tN» 
OtMENtlON ft(N) 

U "9 

00 I |«1.N 
VHOOaSttRT(U) . 

return 

END 


rUNOTtON SRR(*«r>N.» 
DlweNSION KNItKNt 

c»o. . . 

DO 1 i«liN 

1 e*e*i(*>»oii) 

SER«C 

return 

ENO 


SUOROuTlNf MUMU» 0 ,C<k»MiN) 
DIMENSION t(trm>t(M*Nt .eiLiNl 
uogical^notsum 
NOTSUHit .TRUE « . 

DO To' X 
ENTG# MUMS 
NOtS'UMNirtlSEi 
t DO 

DO. E jN'ltN 
tr (NorsuM) 

•' C(|*J>aS. 

DO E KaliM. 

ECU* J > >C'M > J ) «S 1.1 « R > *0 < K » J } . 
RETURN 
END 


SUDROuTINE N0R«TR*1rD»U> 
dimension tl9VtkO<3> 
UaVMOD(R>S) 

DO I laid 
1 40< I I'Al ll/U 
RETURN 

end 


subroutine VRBItd»C} 
dimension lOliDOttCISI 
e<l>*k<E)»S<SI**(S>»ftf El 
eiEMklSIoBl 

e<3)*«< u«a<s)«4(Et«eui 

RETURN . 

END 


SUBROUTINE. MUMVU*S»e*N.> 
DIMENSION MN«N>«04N>.»eiN 
DO 1 taX,N 
C 4 1 > •0 
DO I jaX,N 

1 ei|i.*e(i>«44i»j>«S4Jt 
RETURN 
■ END 


SUBROUTINE. TRMtSdiWiN) 
DIMENSION iS(H«M.| 

0.0 t |al»M 
00. I jatiN 
I D<J«t>>k4l»J> 

RETURN 

END 
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